home *** CD-ROM | disk | FTP | other *** search
/ Il Fascino Del Nudo / Il Fascino Del Nudo.iso / ANG.INF < prev    next >
Text File  |  1991-07-26  |  4KB  |  110 lines
  1. ;;**************************************************
  2. ;; Install of the software for dos/win
  3. ;;**************************************************
  4.  
  5. DefineVariables
  6.   Text    [LogoBitMap]  := mdaddy.bmp
  7.   Text    [CompanyName] := MacDaddy Entertainment
  8.   Text    [ProductName] := All Nude Glamour
  9.   Text    [ProductName5] := Install QuickTime
  10.   Text    [ProductName3] := Uninstall QuickTime       
  11.   Text    [ReadCmdLine]
  12.   Text    [IconFile]    := glamour.ico
  13.   Text    [IconFile3]    := unqt.ico
  14.   Text    [IconFile5]    := suqt.ico  
  15.   Text    [IconPath]
  16.   Text    [IconPath2]
  17.   Text    [IconPath3]
  18.   Text    [IconPath4]
  19.   Text    [IconPath5]
  20.   Text    [ReadPath]
  21.   Text    [ProgFile]    := glamour.exe
  22.   Text    [ProgPath]
  23.   Text    [CDDr]
  24.  
  25. EndDefineVariables
  26.  
  27.  
  28. ;; Setup logo and screen
  29. SetDefaultBitmap off
  30. LoadBitMap 1 [LogoBitMap]
  31. ShowBitMap 1 @xy(5,5)
  32. SetBackgroundColor 0 0 64 191 64 0
  33. ShowWindow Maximized
  34.  
  35. Dialog
  36.   Wait one moment please for the [ProductName] installation...
  37. EndDialog
  38.  
  39. ;;************************************************
  40. ;;  this is where we setup the directory for the 
  41. ;; installation of the software.  We install into the 
  42. ;; bootdrive:\Qtime directory.  This is hard coded
  43. ;; and must be named this for the Windows application 
  44. ;; to read properly.
  45. ;;************************************************
  46. ;;[InstallationDirectory] := [BootDrive]:\QTW
  47. ;;CreateDirectoryIfNecessary [InstallationDirectory]
  48. ;;QueAllFiles
  49. ;;GetQuedFiles
  50.  
  51. ;;**************************************************
  52. ;;Find the files for the program and icons
  53. ;;**************************************************
  54. [IconPath] := FullPathTo [IconFile] Search AllFixed
  55. [IconPath3] := FullPathTo [IconFile3] Search AllFixed
  56. [IconPath5] := FullPathTo [IconFile5] Search AllFixed
  57. [IconPath4] := FullPathTo [IconFile4] Search AllFixed
  58. [ProgPath]  := FullPathTo [ProgFile] Search AllFixed
  59. [CDDr]    := SubstringOf [IconPath] from 1 to 1
  60. [ReadPath]  := FullPathTo [ReadFile] Search AllFixed
  61. [ReadCmdLine]    := write.exe [ReadPath]
  62.  
  63. ;;**************************************************
  64. ;; Create the windows program group.
  65. ;;**************************************************
  66. ProgramManagerDDe
  67.   CreateGroup([CompanyName])
  68.   ReplaceItem([CompanyName])
  69.   AddItem([ProgPath],[ProductName],[IconPath])
  70.   AddItem([CDDr]:\QTW\SETUP.EXE,[ProductName5],[IconPath5])
  71.   AddItem([CDDr]:\QTW\BIN\UNSTLQT.EXE,[ProductName3],[IconPath3])
  72. EndProgramManagerDDE
  73.  
  74.  
  75. ;;**************************************************
  76. ;; Here is where we modify the Autoexec file for the
  77. ;; file paths
  78. ;;**************************************************
  79. ModifyAutoExecBat
  80.   AddPathComponent [BootDrive]:\QTW at beginning  
  81. EndModifyAutoExecBat 
  82.  
  83.  
  84. ;; Exit dialog box and messages
  85. Dialog
  86.   [ProductName] installation is complete.
  87.  EndDialog
  88.  
  89. Procedure DDENonFatalErrorTrap
  90. ;; Purpose of DDENonFatalErrorTrap:
  91. ;; If a procedure with this name is present in the script and a non-fatal
  92. ;; Program Manager DDE error occurs, then this procedure will be executed.
  93. ;; 
  94. ;; Possible Text Error Codes Are:
  95. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  96. ;;      ddeInitiate failed
  97. ;;      pmAddItem failed
  98. ;;      pmClose failed
  99. ;;      pmCreateGroup failed
  100. ;;
  101. ;; To trap a DDENonFatalError and respond to it, use the following code
  102. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  103. ;; If [Number1] > 0 
  104. ;;    Dialog
  105. ;;      NonFatal error in AddItem occurred
  106. ;;      Error Text : DDENonFatalError
  107. ;;    EndDialog
  108. EndProcedure
  109.  
  110. EndScript